unit uUtiles; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,  FileUtil;
{ Esta rutina se encarga de borrar un directorio cunado está lleno }
Procedure BorrarDirectorioLleno (stRuta : String);
{ Esta función borrar la extensión de un fichero}
Function ExtraerExtension (Fichero : STring):String;

implementation

uses umain;
procedure BorrarDirectorioLleno(stRuta: String);
var
  Resultado: Boolean;
begin
   Resultado := DeleteDirectory (stRuta,True);
       If Resultado = True Then
       Begin
          Resultado := RemoveDirUTF8 (stRuta);
          CreateDir (stRuta);
       end;
end;

function ExtraerExtension(Fichero:String): String;
var
  Cadena: String;
  Extension: String;
begin
  Cadena :='';
  Cadena := ExtractFileName (Fichero);
  Extension := ExtractFileExt (Cadena);
  SetLength (Cadena,(Length (Cadena) - Length (Extension)));
  Result := Cadena;
end;

end.

